home *** CD-ROM | disk | FTP | other *** search
/ Your Apple Games Gallery 2 / Your Apple Games Gallery II (Side A)(MindCraft Publishing Corporation)(1989).do / SPACECADE.bas < prev    next >
BASIC Source File  |  2021-12-11  |  896b  |  18 lines
  1. 10  REM *************************
  2. 20  REM *     SPACECADE         *
  3. 30  REM *  BY DEVERIN KAROL     *
  4. 40  REM * COPYRIGHT (C) 1985    *
  5. 50  REM * MINDCRAFT PUBL. CORP. *
  6. 60  REM * CONCORD, MA  01742    *
  7. 70  REM *************************
  8. 80 D$ =  CHR$(4)
  9. 90  POKE  -16368,0
  10. 100  POKE 800,0
  11. 110  PRINT D$"BLOAD SPACECADE.BIN"
  12. 120  HOME : VTAB 8: HTAB 15: PRINT "SPACECADE": PRINT : HTAB 12: PRINT "BY DEVERIN KAROL": PRINT : VTAB 23: PRINT "COPYRIGHT 1985 MINDCRAFT PUBL. CORP."
  13. 130  VTAB 18: HTAB 6: PRINT "PRESS <RETURN> TO START GAME";
  14. 140  GET Z$: PRINT : CALL 24576
  15. 150  TEXT : HOME : POKE  -16368,0
  16. 160 DFLAG =  PEEK(800): IF DFLAG < >13  THEN  VTAB 12: HTAB 16: INVERSE : PRINT "GAME OVER": NORMAL : GOTO 180
  17. 170  VTAB 12: PRINT "CONGRATULATIONS!": PRINT : PRINT "YOU HAVE SURVIVED THE METEOR STORM!  
  18. 180  VTAB 20: INPUT "DO YOU WANT TO PLAY AGAIN?";YN$: ON YN$ = "Y" GOTO 120: HOME : END